/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / MIDI / N-Z / OCTAPAD II.sit / Roland Octapad II.rsrc / M2PS_30632_Pad-80 patches

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 00 00 02 4a 00 2e | 00 09 01 33 01 e7 50 75 |.....J..|...3..Pu|
|00000010| 74 20 30 20 69 6e 74 6f | 20 49 0d 50 75 74 20 22 |t 0 into| I.Put "|
|00000020| 22 20 69 6e 74 6f 20 44 | 69 73 70 6c 61 79 50 61 |" into D|isplayPa|
|00000030| 74 63 68 4e 61 6d 65 0d | 0d 52 65 70 65 61 74 0d |tchName.|.Repeat.|
|00000040| 20 50 75 74 20 44 65 76 | 69 63 65 50 61 74 63 68 | Put Dev|icePatch|
|00000050| 4e 61 6d 65 5b 49 5d 20 | 69 6e 74 6f 20 64 65 76 |Name[I] |into dev|
|00000060| 0d 20 50 75 74 20 30 20 | 69 6e 74 6f 20 66 6c 67 |. Put 0 |into flg|
|00000070| 0d 2d 2d 0d 20 69 66 20 | 64 65 76 3d 24 30 30 20 |.--. if |dev=$00 |
|00000080| 6f 72 20 64 65 76 3d 24 | 30 43 20 6f 72 20 64 65 |or dev=$|0C or de|
|00000090| 76 3d 24 31 37 20 6f 72 | 20 64 65 76 3d 24 31 43 |v=$17 or| dev=$1C|
|000000a0| 20 6f 72 20 64 65 76 3d | 24 33 37 20 6f 72 20 64 | or dev=|$37 or d|
|000000b0| 65 76 3e 3d 24 33 41 20 | 74 68 65 6e 0d 20 20 20 |ev>=$3A |then.   |
|000000c0| 20 70 75 74 20 24 32 30 | 20 61 66 74 65 72 20 44 | put $20| after D|
|000000d0| 69 73 70 6c 61 79 50 61 | 74 63 68 4e 61 6d 65 0d |isplayPa|tchName.|
|000000e0| 20 65 6c 73 65 0d 20 20 | 20 20 50 75 74 20 64 65 | else.  |  Put de|
|000000f0| 76 2b 24 32 34 20 69 6e | 74 6f 20 4e 64 65 76 0d |v+$24 in|to Ndev.|
|00000100| 2d 2d 0d 20 20 20 20 69 | 66 20 28 64 65 76 3e 3d |--.    i|f (dev>=|
|00000110| 24 30 44 20 61 6e 64 20 | 64 65 76 3c 3d 24 31 36 |$0D and |dev<=$16|
|00000120| 29 20 6f 72 20 28 64 65 | 76 3d 24 31 41 29 20 6f |) or (de|v=$1A) o|
|00000130| 72 20 28 64 65 76 3d 24 | 33 38 29 20 74 68 65 6e |r (dev=$|38) then|
|00000140| 0d 20 20 20 20 20 20 20 | 70 75 74 20 4e 64 65 76 |.       |put Ndev|
|00000150| 2d 31 20 69 6e 74 6f 20 | 4e 64 65 76 0d 20 20 20 |-1 into |Ndev.   |
|00000160| 20 65 6e 64 69 66 0d 20 | 20 20 20 69 66 20 64 65 | endif. |   if de|
|00000170| 76 3e 3d 24 31 38 20 61 | 6e 64 20 64 65 76 3c 3d |v>=$18 a|nd dev<=|
|00000180| 24 31 39 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |$19 then|.       |
|00000190| 70 75 74 20 4e 64 65 76 | 2d 32 20 69 6e 74 6f 20 |put Ndev|-2 into |
|000001a0| 4e 64 65 76 0d 20 20 20 | 20 65 6e 64 69 66 0d 20 |Ndev.   | endif. |
|000001b0| 20 20 20 69 66 20 64 65 | 76 3e 3d 24 30 30 20 61 |   if de|v>=$00 a|
|000001c0| 6e 64 20 64 65 76 3c 3d | 24 30 31 20 74 68 65 6e |nd dev<=|$01 then|
|000001d0| 0d 20 20 20 20 20 20 20 | 70 75 74 20 4e 64 65 76 |.       |put Ndev|
|000001e0| 2d 34 20 69 6e 74 6f 20 | 4e 64 65 76 0d 20 20 20 |-4 into |Ndev.   |
|000001f0| 20 65 6e 64 69 66 0d 2d | 2d 0d 20 20 20 20 50 75 | endif.-|-.    Pu|
|00000200| 74 20 4e 64 65 76 20 61 | 66 74 65 72 20 44 69 73 |t Ndev a|fter Dis|
|00000210| 70 6c 61 79 50 61 74 63 | 68 4e 61 6d 65 0d 20 20 |playPatc|hName.  |
|00000220| 65 6e 64 69 66 0d 2d 2d | 0d 20 50 75 74 20 49 2b |endif.--|. Put I+|
|00000230| 31 20 69 6e 74 6f 20 49 | 0d 0d 55 6e 74 69 6c 20 |1 into I|..Until |
|00000240| 49 20 3d 20 31 36 0d 0d | 2d 2d 56 69 65 77 20 76 |I = 16..|--View v|
|00000250| 61 72 69 61 62 6c 65 73 | 00 07 00 00 01 e7 00 2e |ariables|........|
|00000260| 00 07 01 50 01 f5 50 75 | 74 20 30 20 69 6e 74 6f |...P..Pu|t 0 into|
|00000270| 20 49 0d 50 75 74 20 22 | 22 20 69 6e 74 6f 20 44 | I.Put "|" into D|
|00000280| 65 76 69 63 65 50 61 74 | 63 68 4e 61 6d 65 0d 0d |evicePat|chName..|
|00000290| 52 65 70 65 61 74 0d 20 | 50 75 74 20 44 69 73 70 |Repeat. |Put Disp|
|000002a0| 6c 61 79 50 61 74 63 68 | 4e 61 6d 65 5b 49 5d 20 |layPatch|Name[I] |
|000002b0| 69 6e 74 6f 20 64 65 76 | 0d 20 50 75 74 20 30 20 |into dev|. Put 0 |
|000002c0| 69 6e 74 6f 20 66 6c 67 | 0d 2d 2d 0d 20 69 66 20 |into flg|.--. if |
|000002d0| 64 65 76 3d 24 32 30 20 | 74 68 65 6e 0d 20 20 20 |dev=$20 |then.   |
|000002e0| 20 70 75 74 20 24 30 30 | 20 69 6e 74 6f 20 4e 64 | put $00| into Nd|
|000002f0| 65 76 0d 20 20 20 20 70 | 75 74 20 31 20 69 6e 74 |ev.    p|ut 1 int|
|00000300| 6f 20 66 6c 67 0d 20 65 | 6e 64 69 66 0d 20 69 66 |o flg. e|ndif. if|
|00000310| 20 64 65 76 3d 24 33 41 | 20 6f 72 20 64 65 76 3d | dev=$3A| or dev=|
|00000320| 24 33 42 20 74 68 65 6e | 0d 20 20 20 20 70 75 74 |$3B then|.    put|
|00000330| 20 64 65 76 2d 32 32 20 | 69 6e 74 6f 20 4e 64 65 | dev-22 |into Nde|
|00000340| 76 0d 20 20 20 20 70 75 | 74 20 31 20 69 6e 74 6f |v.    pu|t 1 into|
|00000350| 20 66 6c 67 0d 20 65 6e | 64 69 66 0d 20 69 66 20 | flg. en|dif. if |
|00000360| 28 64 65 76 3e 3d 24 33 | 30 20 61 6e 64 20 64 65 |(dev>=$3|0 and de|
|00000370| 76 3c 3d 24 33 39 29 20 | 6f 72 20 28 64 65 76 3d |v<=$39) |or (dev=|
|00000380| 24 33 44 29 20 6f 72 20 | 28 64 65 76 3d 24 35 42 |$3D) or |(dev=$5B|
|00000390| 29 20 74 68 65 6e 0d 20 | 20 20 20 70 75 74 20 64 |) then. |   put d|
|000003a0| 65 76 2d 32 33 20 69 6e | 74 6f 20 4e 64 65 76 0d |ev-23 in|to Ndev.|
|000003b0| 20 20 20 20 70 75 74 20 | 31 20 69 6e 74 6f 20 66 |    put |1 into f|
|000003c0| 6c 67 0d 20 65 6e 64 69 | 66 0d 20 69 66 20 66 6c |lg. endi|f. if fl|
|000003d0| 67 3d 30 20 74 68 65 6e | 0d 20 20 20 20 70 75 74 |g=0 then|.    put|
|000003e0| 20 64 65 76 2d 32 34 20 | 69 6e 74 6f 20 4e 64 65 | dev-24 |into Nde|
|000003f0| 76 0d 20 65 6e 64 69 66 | 0d 2d 2d 0d 20 50 75 74 |v. endif|.--. Put|
|00000400| 20 4e 64 65 76 20 61 66 | 74 65 72 20 44 69 73 70 | Ndev af|ter Disp|
|00000410| 6c 61 79 50 61 74 63 68 | 4e 61 6d 65 0d 0d 20 50 |layPatch|Name.. P|
|00000420| 75 74 20 49 2b 31 20 69 | 6e 74 6f 20 49 0d 0d 55 |ut I+1 i|nto I..U|
|00000430| 6e 74 69 6c 20 49 20 3d | 20 31 36 0d 0d 2d 2d 56 |ntil I =| 16..--V|
|00000440| 69 65 77 20 76 61 72 69 | 61 62 6c 65 73 00 00 01 |iew vari|ables...|
|00000450| 00 00 00 00 00 64 00 0f | 00 fb 01 e4 00 08 00 00 |.....d..|........|
|00000460| 02 34 00 bc 00 0e 01 53 | 01 e3 54 68 65 72 65 20 |.4.....S|..There |
|00000470| 73 65 65 6d 20 74 6f 20 | 62 65 20 74 77 6f 20 76 |seem to |be two v|
|00000480| 65 72 73 69 6f 6e 73 20 | 6f 66 20 74 68 65 20 4f |ersions |of the O|
|00000490| 63 74 61 70 61 64 20 49 | 49 2e 20 46 69 72 73 74 |ctapad I|I. First|
|000004a0| 20 64 6f 20 61 20 62 75 | 6c 6b 20 64 75 6d 70 20 | do a bu|lk dump |
|000004b0| 69 6e 74 6f 0d 62 75 6c | 6b 20 73 74 6f 72 61 67 |into.bul|k storag|
|000004c0| 65 2e 20 20 49 66 20 74 | 68 65 20 73 69 7a 65 20 |e.  If t|he size |
|000004d0| 69 73 20 32 35 34 37 32 | 20 74 68 65 6e 20 75 73 |is 25472| then us|
|000004e0| 65 20 27 52 6f 6c 61 6e | 64 20 4f 63 74 61 70 61 |e 'Rolan|d Octapa|
|000004f0| 64 20 49 49 2d 6f 6c 64 | 20 72 6f 6d 27 0d 69 66 |d II-old| rom'.if|
|00000500| 20 74 68 65 20 73 69 7a | 65 20 69 73 20 32 35 36 | the siz|e is 256|
|00000510| 30 30 20 74 68 65 6e 20 | 75 73 65 20 27 52 6f 6c |00 then |use 'Rol|
|00000520| 61 6e 64 20 4f 63 74 61 | 70 61 64 20 49 49 2d 6e |and Octa|pad II-n|
|00000530| 65 77 20 72 6f 6d 27 2e | 0d 54 68 65 20 6f 63 74 |ew rom'.|.The oct|
|00000540| 61 70 61 64 20 63 61 6e | 20 6f 6e 6c 79 20 75 73 |apad can| only us|
|00000550| 65 20 63 65 72 74 61 69 | 6e 20 63 68 61 72 61 63 |e certai|n charac|
|00000560| 74 65 72 73 2c 20 73 6f | 20 69 66 20 79 6f 75 20 |ters, so| if you |
|00000570| 74 79 70 65 20 69 6e 20 | 63 68 61 72 61 63 74 65 |type in |characte|
|00000580| 72 73 0d 6f 6e 20 74 68 | 65 20 6d 61 63 69 6e 74 |rs.on th|e macint|
|00000590| 6f 73 68 20 74 68 61 74 | 20 61 72 65 20 6e 6f 74 |osh that| are not|
|000005a0| 20 76 61 6c 69 64 2c 20 | 74 68 65 79 20 77 69 6c | valid, |they wil|
|000005b0| 6c 20 62 65 20 63 6f 6e | 76 65 72 74 65 64 20 74 |l be con|verted t|
|000005c0| 6f 20 73 70 61 63 65 73 | 20 77 68 65 6e 0d 74 68 |o spaces| when.th|
|000005d0| 65 79 20 67 65 74 20 73 | 65 6e 74 20 74 6f 20 74 |ey get s|ent to t|
|000005e0| 68 65 20 6f 63 74 61 70 | 61 64 2e 0d 41 6c 73 6f |he octap|ad..Also|
|000005f0| 20 6e 6f 74 65 20 74 68 | 61 74 20 69 66 20 79 6f | note th|at if yo|
|00000600| 75 20 68 61 76 65 20 50 | 61 74 63 68 20 43 68 61 |u have P|atch Cha|
|00000610| 69 6e 73 2c 20 69 66 20 | 79 6f 75 20 6d 6f 76 65 |ins, if |you move|
|00000620| 20 73 6f 6d 65 20 70 61 | 74 63 68 65 73 20 61 72 | some pa|tches ar|
|00000630| 6f 75 6e 64 0d 77 69 74 | 68 20 70 61 74 63 68 20 |ound.wit|h patch |
|00000640| 63 68 61 69 6e 73 2c 20 | 79 6f 75 20 77 69 6c 6c |chains, |you will|
|00000650| 20 68 61 76 65 20 74 6f | 20 72 65 64 6f 20 74 68 | have to| redo th|
|00000660| 65 6d 20 6f 6e 20 74 68 | 65 20 6f 63 74 61 70 61 |em on th|e octapa|
|00000670| 64 20 28 74 68 69 73 20 | 70 72 6f 67 72 61 6d 0d |d (this |program.|
|00000680| 64 6f 65 73 20 4e 4f 54 | 20 64 6f 20 69 74 20 61 |does NOT| do it a|
|00000690| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 2e 29 00 04 |utomatic|ally.)..|
|000006a0| 00 00 04 ff 00 2d 00 05 | 01 50 01 e1 2d 2d 20 4f |.....-..|.P..-- O|
|000006b0| 63 74 70 61 64 20 49 49 | 20 2d 20 73 65 6e 64 20 |ctpad II| - send |
|000006c0| 62 61 6e 6b 20 73 63 72 | 69 70 74 2e 20 20 41 64 |bank scr|ipt.  Ad|
|000006d0| 61 6d 20 4d 63 49 6e 6e | 69 73 20 30 36 2f 33 30 |am McInn|is 06/30|
|000006e0| 2f 39 31 2e 0d 2d 2d 20 | 53 63 72 69 70 74 20 6d |/91..-- |Script m|
|000006f0| 6f 64 69 66 69 65 64 20 | 66 72 6f 6d 20 41 72 6f |odified |from Aro|
|00000700| 6e 27 73 20 55 2d 32 32 | 30 20 73 63 72 69 70 74 |n's U-22|0 script|
|00000710| 2e 0d 0d 70 75 74 20 20 | 33 36 38 20 69 6e 74 6f |...put  |368 into|
|00000720| 20 42 6c 6f 63 6b 53 69 | 7a 65 0d 70 75 74 20 20 | BlockSi|ze.put  |
|00000730| 20 30 20 69 6e 74 6f 20 | 42 6c 6f 63 6b 0d 70 75 | 0 into |Block.pu|
|00000740| 74 20 20 36 34 20 69 6e | 74 6f 20 4e 75 6d 50 61 |t  64 in|to NumPa|
|00000750| 63 6b 65 74 73 0d 70 75 | 74 20 24 30 30 20 69 6e |ckets.pu|t $00 in|
|00000760| 74 6f 20 48 64 72 0d 70 | 75 74 20 24 30 30 20 69 |to Hdr.p|ut $00 i|
|00000770| 6e 74 6f 20 63 6e 74 0d | 50 75 74 20 24 46 30 20 |nto cnt.|Put $F0 |
|00000780| 24 34 31 20 64 65 76 69 | 63 65 49 44 20 24 32 35 |$41 devi|ceID $25|
|00000790| 20 24 31 32 20 69 6e 74 | 6f 20 53 79 73 45 78 0d | $12 int|o SysEx.|
|000007a0| 0d 44 6f 41 6c 65 72 74 | 20 22 4f 6e 20 74 68 65 |.DoAlert| "On the|
|000007b0| 20 4f 63 74 61 70 61 64 | 20 49 49 20 69 6e 20 45 | Octapad| II in E|
|000007c0| 64 69 74 20 6d 6f 64 65 | 3a 5c 0d 31 2e 20 50 72 |dit mode|:\.1. Pr|
|000007d0| 65 73 73 20 74 68 65 20 | 4d 49 44 49 20 6b 65 79 |ess the |MIDI key|
|000007e0| 2e 5c 0d 32 2e 20 50 72 | 65 73 73 20 74 68 65 20 |.\.2. Pr|ess the |
|000007f0| 6f 70 65 6e 20 62 61 63 | 6b 20 61 72 72 6f 77 20 |open bac|k arrow |
|00000800| 6b 65 79 20 6f 6e 63 65 | 2e 5c 0d 33 2e 20 50 72 |key once|.\.3. Pr|
|00000810| 65 73 73 20 45 6e 74 65 | 72 2e 22 20 69 6e 74 6f |ess Ente|r." into|
|00000820| 20 72 65 73 75 6c 74 0d | 0d 69 66 20 72 65 73 75 | result.|.if resu|
|00000830| 6c 74 3d 31 20 74 68 65 | 6e 0d 0d 2d 2d 20 4f 32 |lt=1 the|n..-- O2|
|00000840| 4e 43 4f 20 2d 3e 20 63 | 75 73 74 6f 6d 20 6e 61 |NCO -> c|ustom na|
|00000850| 6d 65 20 63 6f 6e 76 65 | 72 73 69 6f 6e 20 28 6f |me conve|rsion (o|
|00000860| 6c 64 20 72 6f 6d 29 20 | 70 72 6f 67 72 61 6d 20 |ld rom) |program |
|00000870| 77 72 69 74 74 65 6e 20 | 69 6e 20 54 68 69 6e 6b |written |in Think|
|00000880| 20 43 2e 0d 20 20 20 4f | 32 4e 43 4f 20 62 61 6e | C..   O|2NCO ban|
|00000890| 6b 20 69 6e 74 6f 20 74 | 65 6d 70 0d 20 20 20 4e |k into t|emp.   N|
|000008a0| 69 62 62 6c 69 7a 65 20 | 74 65 6d 70 20 69 6e 74 |ibblize |temp int|
|000008b0| 6f 20 4e 64 61 74 61 0d | 0d 20 20 20 72 65 70 65 |o Ndata.|.   repe|
|000008c0| 61 74 0d 20 20 20 20 20 | 70 75 74 20 42 6c 6f 63 |at.     |put Bloc|
|000008d0| 6b 53 69 7a 65 2a 42 6c | 6f 63 6b 20 69 6e 74 6f |kSize*Bl|ock into|
|000008e0| 20 69 0d 20 20 20 20 20 | 70 75 74 20 4e 64 61 74 | i.     |put Ndat|
|000008f0| 61 5b 69 2c 42 6c 6f 63 | 6b 53 69 7a 65 5d 20 69 |a[i,Bloc|kSize] i|
|00000900| 6e 74 6f 20 64 61 74 61 | 0d 0d 20 20 20 20 20 50 |nto data|..     P|
|00000910| 75 74 20 31 20 69 6e 74 | 6f 20 41 0d 20 20 20 20 |ut 1 int|o A.    |
|00000920| 20 72 65 70 65 61 74 0d | 20 20 20 20 20 20 20 69 | repeat.|       i|
|00000930| 66 20 41 3d 31 20 74 68 | 65 6e 20 3b 20 70 75 74 |f A=1 th|en ; put|
|00000940| 20 64 61 74 61 5b 30 2c | 31 32 38 5d 20 69 6e 74 | data[0,|128] int|
|00000950| 6f 20 73 64 61 74 61 20 | 3b 20 65 6e 64 69 66 0d |o sdata |; endif.|
|00000960| 20 20 20 20 20 20 20 69 | 66 20 41 3d 32 20 74 68 |       i|f A=2 th|
|00000970| 65 6e 20 3b 20 70 75 74 | 20 64 61 74 61 5b 31 32 |en ; put| data[12|
|00000980| 38 2c 31 32 38 5d 20 69 | 6e 74 6f 20 73 64 61 74 |8,128] i|nto sdat|
|00000990| 61 20 3b 20 65 6e 64 69 | 66 0d 20 20 20 20 20 20 |a ; endi|f.      |
|000009a0| 20 69 66 20 41 3d 33 20 | 74 68 65 6e 20 3b 20 70 | if A=3 |then ; p|
|000009b0| 75 74 20 64 61 74 61 5b | 32 35 36 2c 31 31 32 5d |ut data[|256,112]|
|000009c0| 20 69 6e 74 6f 20 73 64 | 61 74 61 20 3b 20 65 6e | into sd|ata ; en|
|000009d0| 64 69 66 0d 20 20 20 20 | 20 20 0d 20 20 20 20 20 |dif.    |  .     |
|000009e0| 20 20 70 75 74 20 48 64 | 72 20 63 6e 74 20 30 30 |  put Hd|r cnt 00|
|000009f0| 20 69 6e 74 6f 20 61 64 | 64 72 0d 20 20 20 20 20 | into ad|dr.     |
|00000a00| 20 20 63 68 65 63 6b 73 | 75 6d 30 20 61 64 64 72 |  checks|um0 addr|
|00000a10| 20 73 64 61 74 61 20 69 | 6e 74 6f 20 63 68 65 63 | sdata i|nto chec|
|00000a20| 6b 64 61 74 61 0d 20 20 | 20 20 20 20 20 50 75 74 |kdata.  |     Put|
|00000a30| 20 53 79 73 45 78 20 63 | 68 65 63 6b 64 61 74 61 | SysEx c|heckdata|
|00000a40| 20 24 66 37 20 69 6e 74 | 6f 20 74 65 6d 70 0d 2d | $f7 int|o temp.-|
|00000a50| 2d 76 69 65 77 20 76 61 | 72 69 61 62 6c 65 73 0d |-view va|riables.|
|00000a60| 20 20 20 20 20 20 20 53 | 65 6e 64 20 74 65 6d 70 |       S|end temp|
|00000a70| 0d 0d 20 20 20 20 20 20 | 20 69 66 20 63 6e 74 20 |..      | if cnt |
|00000a80| 3d 20 24 37 45 20 74 68 | 65 6e 0d 20 20 20 20 20 |= $7E th|en.     |
|00000a90| 20 20 20 20 20 50 75 74 | 20 24 30 30 20 69 6e 74 |     Put| $00 int|
|00000aa0| 6f 20 63 6e 74 0d 20 20 | 20 20 20 20 20 20 20 20 |o cnt.  |        |
|00000ab0| 70 75 74 20 24 30 31 20 | 69 6e 74 6f 20 48 64 72 |put $01 |into Hdr|
|00000ac0| 0d 20 20 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |.       |else.   |
|00000ad0| 20 20 20 20 20 20 20 70 | 75 74 20 63 6e 74 2b 31 |       p|ut cnt+1|
|00000ae0| 20 69 6e 74 6f 20 63 6e | 74 0d 20 20 20 20 20 20 | into cn|t.      |
|00000af0| 20 65 6e 64 69 66 0d 20 | 20 20 20 20 20 20 70 75 | endif. |      pu|
|00000b00| 74 20 41 2b 31 20 69 6e | 74 6f 20 41 0d 20 20 20 |t A+1 in|to A.   |
|00000b10| 20 20 75 6e 74 69 6c 20 | 41 3d 34 0d 20 20 20 20 |  until |A=4.    |
|00000b20| 20 69 66 20 48 64 72 20 | 3d 20 24 30 31 20 61 6e | if Hdr |= $01 an|
|00000b30| 64 20 63 6e 74 20 3d 20 | 24 30 30 20 74 68 65 6e |d cnt = |$00 then|
|00000b40| 0d 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |.     el|se.     |
|00000b50| 20 20 70 75 74 20 63 6e | 74 2b 31 20 69 6e 74 6f |  put cn|t+1 into|
|00000b60| 20 63 6e 74 0d 20 20 20 | 20 20 65 6e 64 69 66 0d | cnt.   |  endif.|
|00000b70| 20 20 20 20 20 70 75 74 | 20 62 6c 6f 63 6b 2b 31 |     put| block+1|
|00000b80| 20 69 6e 74 6f 20 62 6c | 6f 63 6b 0d 20 20 20 75 | into bl|ock.   u|
|00000b90| 6e 74 69 6c 20 62 6c 6f | 63 6b 3d 4e 75 6d 50 61 |ntil blo|ck=NumPa|
|00000ba0| 63 6b 65 74 73 0d 65 6e | 64 69 66 00 00 05 00 00 |ckets.en|dif.....|
|00000bb0| 00 96 00 00 20 19 3e be | 20 19 28 4e 52 29 20 69 |.... .>.| .(NR) i|
|00000bc0| 73 20 66 6f 72 20 4e 65 | 77 20 52 6f 6d 2e 20 20 |s for Ne|w Rom.  |
|00000bd0| 49 66 20 79 6f 75 20 64 | 6f 20 61 20 62 75 6c 6b |If you d|o a bulk|
|00000be0| 20 64 75 6d 70 20 61 6e | 64 20 74 68 65 20 73 69 | dump an|d the si|
|00000bf0| 7a 65 20 69 73 20 32 35 | 34 37 32 20 74 68 65 6e |ze is 25|472 then|
|00000c00| 20 75 73 65 20 27 52 6f | 6c 61 6e 64 20 4f 63 74 | use 'Ro|land Oct|
|00000c10| 61 70 61 64 20 49 49 27 | 20 69 66 20 74 68 65 20 |apad II'| if the |
|00000c20| 73 69 7a 65 20 69 73 20 | 32 35 36 30 30 20 74 68 |size is |25600 th|
|00000c30| 65 6e 20 75 73 65 20 27 | 52 6f 6c 61 6e 64 20 4f |en use '|Roland O|
|00000c40| 63 74 61 70 61 64 20 49 | 49 20 28 4e 52 29 27 2e |ctapad I|I (NR)'.|
|00000c50| 00 03 00 00 02 95 00 3a | 00 09 01 49 01 e1 2d 2d |.......:|...I..--|
|00000c60| 47 65 74 20 62 61 6e 6b | 20 73 63 72 69 70 74 20 |Get bank| script |
|00000c70| 66 6f 72 20 74 68 65 20 | 4f 63 74 61 70 61 64 20 |for the |Octapad |
|00000c80| 49 49 20 62 79 20 41 64 | 61 6d 20 4d 63 49 6e 6e |II by Ad|am McInn|
|00000c90| 69 73 20 30 37 2f 31 30 | 2f 39 31 2e 0d 0d 72 65 |is 07/10|/91...re|
|00000ca0| 63 65 69 76 65 50 61 63 | 6b 65 74 73 20 38 20 32 |ceivePac|kets 8 2|
|00000cb0| 20 20 32 35 36 30 30 20 | 69 6e 74 6f 20 74 65 73 |  25600 |into tes|
|00000cc0| 74 c2 0d 57 61 69 74 20 | 22 52 65 61 64 79 20 74 |t..Wait |"Ready t|
|00000cd0| 6f 20 72 65 63 65 69 76 | 65 20 61 20 62 61 6e 6b |o receiv|e a bank|
|00000ce0| 20 6f 66 20 50 61 74 63 | 68 65 73 c9 5c 0d 49 6e | of Patc|hes.\.In|
|00000cf0| 20 45 64 69 74 20 6d 6f | 64 65 2c 20 70 75 73 68 | Edit mo|de, push|
|00000d00| 20 74 68 65 20 4d 49 44 | 49 20 6b 65 79 3a 5c 0d | the MID|I key:\.|
|00000d10| 20 20 31 2e 20 50 72 65 | 73 73 20 74 68 65 20 6f |  1. Pre|ss the o|
|00000d20| 70 65 6e 20 62 61 63 6b | 20 61 72 72 6f 77 20 6b |pen back| arrow k|
|00000d30| 65 79 20 74 77 6f 20 74 | 69 6d 65 73 20 28 66 6f |ey two t|imes (fo|
|00000d40| 72 20 27 44 55 4d 50 27 | 29 5c 0d 20 20 32 2e 20 |r 'DUMP'|)\.  2. |
|00000d50| 50 72 65 73 73 20 45 6e | 74 65 72 2e 5c 0d 20 20 |Press En|ter.\.  |
|00000d60| 33 2e 20 50 72 65 73 73 | 20 74 68 65 20 63 6c 6f |3. Press| the clo|
|00000d70| 73 65 64 20 62 61 63 6b | 20 61 72 72 6f 77 20 6b |sed back| arrow k|
|00000d80| 65 79 20 66 6f 72 20 27 | 41 4c 4c 27 5c 0d 20 20 |ey for '|ALL'\.  |
|00000d90| 34 2e 20 50 72 65 73 73 | 20 45 6e 74 65 72 22 0d |4. Press| Enter".|
|00000da0| 0d 0d 44 65 4e 69 62 62 | 6c 69 7a 65 20 74 65 73 |..DeNibb|lize tes|
|00000db0| 74 20 69 6e 74 6f 20 74 | 65 6d 70 0d 0d 2d 2d 20 |t into t|emp..-- |
|00000dc0| 4f 32 4e 55 4f 20 2d 3e | 20 63 75 73 74 6f 6d 20 |O2NUO ->| custom |
|00000dd0| 6e 61 6d 65 20 63 6f 6e | 76 65 72 73 69 6f 6e 20 |name con|version |
|00000de0| 28 6f 6c 64 20 72 6f 6d | 29 20 70 72 6f 67 72 61 |(old rom|) progra|
|00000df0| 6d 20 77 72 69 74 74 65 | 6e 20 69 6e 20 54 68 69 |m writte|n in Thi|
|00000e00| 6e 6b 20 43 2e 0d 2d 2d | 20 69 66 20 74 65 6d 70 |nk C..--| if temp|
|00000e10| 20 69 73 20 6c 65 73 73 | 20 74 68 61 6e 20 31 31 | is less| than 11|
|00000e20| 37 37 36 20 69 6e 20 6c | 65 6e 67 74 68 2c 20 64 |776 in l|ength, d|
|00000e30| 6f 20 6e 6f 74 20 63 61 | 6c 6c 20 63 6f 6e 76 65 |o not ca|ll conve|
|00000e40| 72 73 69 6f 6e 20 70 72 | 6f 67 72 61 6d 0d 2d 2d |rsion pr|ogram.--|
|00000e50| 20 6f 72 20 77 69 6c 6c | 20 62 6f 6d 62 2e 0d 69 | or will| bomb..i|
|00000e60| 66 20 53 69 7a 65 6f 66 | 28 74 65 6d 70 29 20 3e |f Sizeof|(temp) >|
|00000e70| 3d 20 31 31 37 37 36 20 | 74 68 65 6e 0d 20 20 20 |= 11776 |then.   |
|00000e80| 4f 32 4e 55 4f 20 74 65 | 6d 70 20 69 6e 74 6f 20 |O2NUO te|mp into |
|00000e90| 62 61 6e 6b 0d 65 6c 73 | 65 0d 20 20 20 44 6f 41 |bank.els|e.   DoA|
|00000ea0| 6c 65 72 74 20 22 49 6e | 63 6f 72 72 65 63 74 20 |lert "In|correct |
|00000eb0| 62 61 6e 6b 20 73 69 7a | 65 2e 20 57 69 6c 6c 20 |bank siz|e. Will |
|00000ec0| 6e 6f 74 20 61 63 63 65 | 70 74 20 64 75 6d 70 21 |not acce|pt dump!|
|00000ed0| 22 20 69 6e 74 6f 20 72 | 65 73 70 0d 65 6e 64 69 |" into r|esp.endi|
|00000ee0| 66 0d 0d 2d 2d 76 69 65 | 77 20 76 61 72 69 61 62 |f..--vie|w variab|
|00000ef0| 6c 65 73 00             |                         |les.    |        |
+--------+-------------------------+-------------------------+--------+--------+